From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 May 1996 10:53:17 +0000 (+0000)
Subject: (Fcall_process): Close fd_error if successful.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~83861
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=70ffb393eaf1624e41222d3c94ecb74623853bdd;p=emacs.git

(Fcall_process): Close fd_error if successful.
---

diff --git a/src/callproc.c b/src/callproc.c
index 5fda6d61b0a..d9c29a0ba72 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -456,6 +456,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     close (filefd);
     if (fd1 >= 0)
       close (fd1);
+    if (fd_error >= 0)
+      close (fd_error);
   }
 
   if (pid < 0)